www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/My_quan.asp
<!--#include file="ku_top.asp"-->
<%
id=request.querystring("id")
set rs=server.createobject("adodb.recordset")
sql="update quan set hits=hits+1 where ID="&ID&""
rs.open sql,conn,1,3
rs.close
set urs=server.CreateObject("adodb.recordset")
usql="select * from Quan where id ="&id
urs.open usql,conn,1,1
if urs.eof then
Response.Redirect "Quan.asp"
response.End
end if
function title()
id=request.querystring("id")
set urs=server.CreateObject("adodb.recordset")
usql="select * from Quan where id ="&id
urs.open usql,conn,1,1
%>
<%=urs("name")%>
<%
end function
%>
<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
<tr>
<td height="5"></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" width="980" height="454" cellpadding="0" cellspacing="0">
<tr>
<td height="454" width="740" valign="top">
<div align="center">
<table cellpadding="0" cellspacing="0" width="740" height="452">
<tr>
<td height="36" background="Ku_img/News/news_001.JPG"><table border="0" width="740" id="table2" cellpadding="0" cellspacing="0">
<tr>
<td width="31">
</td>
<td width="344"><b><font color="#3399FF">圈子名称：</font><%=title%></b></td>
<td width="115"> </td>
<td width="110"> </td>
<td width="140" align="right">
<a href="Join.asp?id=<%=id%>"><img border="0" src="pkxx-img/quan_icon11.gif"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="396" background="Ku_img/News/news_002.JPG" valign="top">
<div align="center">
<table border="0" width="735" id="table3" cellpadding="0" cellspacing="1" height="441" bgcolor="#F5F5F5">
<tr>
<td width="150" rowspan="3" bgcolor="#FFFFFF">
<p align="center">
<img src="<% if urs("logo")<>"" then%><%=urs("logo")%><%else%>pkxx-img/nopic-quan.gif<%end if%>" width="144" height="120" border="0">
</td>
<td width="100" bgcolor="#FFFFFF" height="25">
<p align="right"><b>创建人</b>：</td>
<td width="219" bgcolor="#FFFFFF"> <a href="userinfo.asp?user=<%=urs("cjr")%>"><%=urs("cjr")%></a></td>
<td width="101" bgcolor="#FFFFFF">
<p align="right"><b>圈内人数</b>：</td>
<td width="162" bgcolor="#FFFFFF"> <font color="#800000"><%=urs("qnrs")%></font> 人</td>
</tr>
<tr>
<td width="100" bgcolor="#FFFFFF" height="25">
<p align="right"><b>创建时间</b>：</td>
<td width="219" bgcolor="#FFFFFF"> <font color="#800000"><%=DateTimeFormat(urs("addtime"),3)%></font></td>
<td width="101" bgcolor="#FFFFFF">
<p align="right"><b>所属类别</b>：</td>
<td width="162" bgcolor="#FFFFFF"> <%=urs("lb")%></td>
</tr>
<tr>
<td width="582" colspan="4" height="77" bgcolor="#FFFFFF" valign="top">
<div align="center">
<table border="0" width="100%" id="table4" height="76">
<tr>
<td width="17" bgcolor="#DDEEFF"><b>圈子公告</b></td>
<td width="541"><%=changechr(cstr(urs("beizhu")))%></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td height="50" width="735" colspan="5" bgcolor="#FFFFFF">
<div align="center">
<table border="0" width="100%" id="table5">
<tr>
<td width="16" bgcolor="#F5F5F5"><b><font size="4">成员</font></b></td>
<td>
<table width="98%">
<% set qnrs=server.CreateObject("adodb.recordset")
qnsql="select * from Quan_ren where qid="&id
qnrs.open qnsql,conn,1,1
if qnrs.eof then
%>
<Tr><td colspan="2">还没有其他成员加入!</td></Tr>
<%else
dim j
j=1
%>
<Tr>
<% do while not qnrs.eof %>
<td width="16%" height="23"><img src="Ku_img/user.gif" border="0"> <a href="userinfo.asp?user=<%=qnrs("sqr")%>" target="blank"><%=qnrs("sqr")%></a>
</td>
<% if j mod 6=0 then %>
</tr><tr>
<% end if%>
<% j=j+1
qnrs.movenext
loop
end if
qnrs.close
set qnrs=nothing
%>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td height="252" width="735" colspan="5" bgcolor="#FFFFFF" valign="top">
<div align="center">
<table border="0" width="725" height="126" cellpadding="0" cellspacing="0">
<tr>
<td height="34" width="725" >
<div align="center">
<table border="0" width="725" id="table1" bgcolor="#3399FF" height="25">
<tr>
<td width="109">
<p align="center"><b>圈子话题</b></td>
<td width="271"> </td>
<td width="128"><b>
<a href="User_put_tie.asp?id=<%=id%>">
<font color="#FFFFFF">我要发布话题</font></a></b></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td height="87" width="725" background="Ku_Img/Index/info002.jpg" valign="top">
<div align=center>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" >
<tr>
<td height="25" bgcolor="#ffaaaa" style="font-weight: bold" width="62%">
<p align="left">帖子主题</td>
<td width="13%" bgcolor="#ffaaaa" style="font-weight: bold"><div align="center">
发布人</div></td>
<td width="11%" bgcolor="#ffaaaa" style="font-weight: bold"><div align="center">日 期</div></td>
<td width="8%" bgcolor="#ffaaaa" style="font-weight: bold"><div align="center">
看/回</div></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Quan_ht where qid="&id&""
sql=sql&" order by addtime desc"
'response.write sql
'response.End
rs.open sql,conn,1,1
dim a
Set a=New PageList
listLimit=15
'模拟分页一页显示分页数
pageLists=5
'设置分页参数
If rs.BOF or rs.EOF Then
%>
<tr bgcolor="#C6E3F4">
<td height="22" colspan="5" align="center" bgcolor="#FF0000">此类暂无话题！</td>
</tr>
<%
else
'分页循环开始
totalList=rs.recordcount
a.InitPara=array(totalList,listLimit,pageLists)
a.PageList()
rs.pagesize=listLimit
page = request("page")
If page="" Then
page=1
End If
rs.absolutepage = page
for i=1 to rs.pagesize
%>
<tr onMouseOver='this.style.backgroundColor="#F6f6f6"'
onMouseOut='this.style.backgroundColor="#Ffffff"'>
<td height="24" width="62%">
<img src="pkxx-img/thread.gif" border="0">
<a href="Gu_showtie.asp?guxing=<%=rs("id")%>" title="<%=rs("title")%>" >
<%
if Getlen(rs("title"))>48 then
response.write LeftStr(rs("title"),46)
response.write "..."
else
response.write ""&rs("title")&""
end if
%>
</a>
</td>
<td align="center"><a href="userinfo.asp?user=<%=rs("fbr")%>"><%=rs("fbr")%></a></td>
<td align="center"><%=DateTimeFormat(rs("addtime"),2)%></td>
<td align="center"><%=rs("llcs")%>/<%=rs("hfcs")%></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</table></td>
</tr>
</table>
</div>
<%
rs.close
set rs=nohing
%>
</td>
</tr>
<tr><td background="Ku_Img/Index/info002.jpg" align=center><%=a.PageInfo%></td></tr>
<tr>
<td height="5" width="522">
<img border="0" src="Ku_Img/Index/info003.jpg" width="522" height="5"></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<!---->
<!---->
</td>
</tr>
<tr>
<td height="4">
<img border="0" src="Ku_img/News/news_003.JPG" width="740" height="4"></td>
</tr>
</table>
</div>
</td>
<td height="454" width="8"> </td>
<td height="454" width="232" valign="top">
<!--#include file="Ku_type/Index_login.asp"-->
<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
<tr>
<td height="5"></td>
</tr>
</table>
</div>
<!--#include file="Ku_type/tie_hot.asp"-->
</td>
</tr>
</table>
</div>
<!--#include file="Ku_foot.asp"-->